VecValueTemp=[28 129 190 195 303];
for n1=1:size(VecValueTemp,2)
    FilterFourthLevelEditorsCoAuthors(VecValueTemp(1,n1));
    FilterFourthLevelEditorsCoAuthors3(VecValueTemp(1,n1));
end